prolog './g120a.ijs'
NB. B - B ---------------------------------------------------------------

x=: ?100$2
y=: ?100$2
(x-y) -: (#.x,.y){0 _1 1 0
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:?2
(x-z) -: x-($x)$z    [ z=:?2

(x-y) -: (40$"0 x)-y [ x=: ?10$2    [ y=: ?10 40$2
(x-y) -: x-40$"0 y   [ x=: ?10 40$2 [ y=: ?10$2

0 _1 1 0 -: 0 0 1 1 - 0 1 0 1


NB. B - I ---------------------------------------------------------------

x=: ?100$2
y=: _1e5+?100$2e5
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:?2
(x-z) -: x-($x)$z    [ z=:_1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=: ?10$2    [ y=: _1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=: ?10 40$2 [ y=: _1e5+?10$2e5

1 0 _1 _2 -: 1 - i.4
2147483647 -: 0 - _2147483647
2147483648 -: 0 - _2147483648


NB. B - D ---------------------------------------------------------------

x=: ?100$2
y=: o._1e5+?100$2e5
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:?2
(x-z) -: x-($x)$z    [ z=:o._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=: ?10$2    [ y=: o._1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=: ?10 40$2 [ y=: o._1e5+?10$2e5

_3.5 18.2 -: 1 - 4.5 _17.2


NB. I - B ---------------------------------------------------------------

x=: _1e5+?100$2e5
y=: ?100$2
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:_1e5+?2e5
(x-z) -: x-($x)$z    [ z=:?2

(x-y) -: (40$"0 x)-y [ x=: _1e5+?10$2e5    [ y=: ?10 40$2
(x-y) -: x-40$"0 y   [ x=: _1e5+?10 40$2e5 [ y=: ?10$2

5 3 8 -: 6 4 9 - 1
_2147483648 -: _2147483647 - 1
_2147483649 -: _2147483648 - 1


NB. I - I ---------------------------------------------------------------

x=: _1e5+?100$2e5
y=: _1e5+?100$2e5
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:?2e6
(x-z) -: x-($x)$z    [ z=:_1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=: _1e5+?10$2e5    [ y=: _1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=: _1e5+?10 40$2e5 [ y=: _1e5+?10$2e5

_6 _4 _2 -: 3 4 5 - 9 8 7
_3e8 -: _1e8 - 2e8
_3e9 -: _1e9 - 2e9
2147483650 -: 2 - _2147483648


NB. I - D ---------------------------------------------------------------
      
x=: _1e5+?100$2e5
y=: o._1e5+?100$2e5
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:?2e6
(x-z) -: x-($x)$z    [ z=:o._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=: _1e5+?10$2e5    [ y=: o._1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=: _1e5+?10 40$2e5 [ y=: o._1e5+?10$2e5

65 _38.8 -: 45 _23 - _20 15.8


NB. D - B ---------------------------------------------------------------

x=: o._1e5+?100$2e5
y=: ?100$2
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:o._1e5+?2e5
(x-z) -: x-($x)$z    [ z=:?2

(x-y) -: (40$"0 x)-y [ x=: o._1e5+?10$2e5    [ y=: ?10 40$2
(x-y) -: x-40$"0 y   [ x=: o._1e5+?10 40$2e5 [ y=: ?10$2

2.14159 3.14159 -: 3.14159 - 1 0


NB. D - I ---------------------------------------------------------------

x=: o._1e5+?100$2e5
y=: _1e5+?100$2e5
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:o._1e5+?2e5
(x-z) -: x-($x)$z    [ z=:_1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=: o._1e5+?10$2e5    [ y=: _1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=: o._1e5+?10 40$2e5 [ y=: _1e5+?10$2e5

2.14159 5.14159 -: 3.14159 - 1 _2


NB. D - D ---------------------------------------------------------------

x=: o._1e5+?100$2e5
y=: o._1e5+?100$2e5
(x-y) -: (z+x)-z+y   [ z=:{.0 4.5
(x-y) -: (z*x)-z*y   [ z=:{.1 4j5
(z-y) -: (($y)$z)-y  [ z=:o._1e5+?2e5
(x-z) -: x-($x)$z    [ z=:o._1e5+?2e5

(x-y) -: (40$"0 x)-y [ x=: o._1e5+?10$2e5    [ y=: o._1e5+?10 40$2e5
(x-y) -: x-40$"0 y   [ x=: o._1e5+?10 40$2e5 [ y=: o._1e5+?10$2e5

3 -: 3.14159 - 0.14159




epilog''

